home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / qbbs / rakit1.zip / RA-QUES.ZIP / REGISTER.Q-A < prev    next >
Text File  |  1988-06-04  |  4KB  |  127 lines
  1. ClearScreen
  2. ChangeColor 15 0
  3. Display "|Please be aware that supplying false information in order|"
  4. Display "to gain access to this (or any other) BBS is in violation|"
  5. Display "of the federal electronic communications act.  If you don't|"
  6. Display "plan on supplying valid information I would suggest you don't|"
  7. Display "continue with this registration process.||"
  8. ChangeColor 10 0
  9. Display "Would you like to Register? (Y/N): "
  10. Ask 1 1
  11. If 1 = "N"
  12. ChangeColor 12 0
  13. Display "|Unregistered users are purged weekly so don't forget.|"
  14. Display "to register.|"
  15. Quit
  16. Endif
  17.  
  18.  
  19. ChangeColor 10 0
  20. Display "|Thanks for taking an interest in our system. All info|"
  21. Display "requested is held in strictest confidence and is NEVER|" 
  22. Display "released to ANYONE for ANY reason.||"
  23. Display "We only accept HOME (not business) data for your answers.|"
  24. display "If I call and it appears to be a place of business, I will|"
  25. display "hang up without even saying hello and your registration|"
  26. display "won't be accepted.||"
  27.  
  28. Display "HOME STREET Address : "
  29. Ask 60 2
  30.  
  31. ChangeColor 10 0
  32. Display "|City, State : "
  33. Ask 60 3
  34.  
  35. ChangeColor 10 0
  36. Display "|HOME Phone : "
  37. Ask 15 4
  38.  
  39. ChangeColor 10 0
  40. Display "|Best time to call if nec. : "
  41. Ask 30 5
  42.  
  43. ChangeColor 10 0
  44. Display "|Type of Computer you're using : "
  45. Ask 30 6
  46.  
  47. ChangeColor 10 0
  48. Display "|Modem Brand & Max baud rate : "
  49. Ask 30 7
  50.  
  51. ChangeColor 10 0
  52. Display "|Comm program you prefer : "
  53. Ask 30 8
  54.  
  55. ChangeColor 10 0
  56. Display "|Your main interest in using this system?|"
  57. Display ">"
  58. Ask 78 9
  59.  
  60. ChangeColor 10 0
  61. Display "|Do you run a BBS? (Y/N) : "
  62. Ask 1 10
  63. If 10 = "Y"
  64.  ChangeColor 10 0
  65.  Display "|Name and Number of System : "
  66.  Ask 60 11
  67.  ChangeColor 10 0
  68.  Display "|Max Baud rate and Hours : "
  69.  Ask 60 12
  70.  ChangeColor 10 0
  71.  Display "|Is this a FidoNet System (Y/N) : "
  72.  Ask 1 13
  73.    If 13 = "Y"
  74.    ChangeColor 10 0
  75.    Display "|Net/Node Number : "
  76.    Ask 9 14
  77.    Endif
  78. Endif
  79.  
  80. ClearScreen
  81. Changecolor 10 0
  82. Display "| 1: All personal information I have supplied in this registration|"
  83. Display "    is my true HOME (not business) data.||"
  84. Display " 2: I understand that the Sysop can see ALL private mail and|"
  85. Display "    grant full permission to the Sysop to view private mail to|"
  86. Display "    or from me during the normal course of system maintenance.||"
  87. Display " 3: I understand that the Sysop of Kendall BBS has no control|"
  88. Display "    over my use or misuse of any software downloaded from this|"
  89. Display "    system and I will not hold the Sysop responsible for any|"
  90. Display "    damage caused by said use/misuse of downloaded software.||"
  91. Display " 4: I understand that the Sysop of Kendall BBS may deny my access|"
  92. Display "    to the system at any time, for any reason, without prior notice.||"
  93. Display "You should answer YES (not Y) IF you agree to these terms. Any other|"
  94. Display "answer will abort this registration and you will not be upgraded and|"
  95. Display "most likely will be denied access to the system.||"
  96. Display "Do you understand and agree to these 4 items - YES or NO: "
  97. Ask 3 18
  98. If 18 = "YES"
  99.  SetFlag C1 ON
  100. Clearscreen
  101. ChangeColor 10 0
  102. Display "|Thanks for taking time to answer these questions.|"
  103. Display "Please give me a few days to verify your data.  Until|"
  104. Display "that time your access will remain limited.|"
  105. Display "|Storing your answers...|"
  106.  
  107. PostInfo
  108. OutputAnswer "ADDRESS  : " 2
  109. OutputAnswer "CITY,ST  : " 3
  110. OutputAnswer "PHONE    : " 4
  111. OutputAnswer "CALLTIME : " 5
  112. OutputAnswer "COMPUTER : " 6
  113. OutputAnswer "MODEM    : " 7
  114. OutputAnswer "COMMPRGM : " 8
  115. OutputAnswer "INTEREST : " 9
  116. OutputAnswer "AGREED   : " 18
  117.  If 10 = "Y"
  118.   OutputAnswer "SYSNAME  : " 11
  119.   OutputAnswer "BAUD/HRS : " 12
  120.   OutputAnswer "NET/NODE : " 14
  121.  Endif
  122. Endif
  123. Display "|Press ENTER to Continue "
  124. Ask 1 16
  125. Quit
  126.  
  127.